cd "C:\Users\remij\Desktop\Replication Files JOEG\Figure 1B"

**********************
******FIGURE 1B*******
**********************

use Share_missing, clear

***CALCULATE MISSING SHARE OF MISSIONS IN BEACH (1900) AND ROOME (1924)***
* Missing share 1900 - N = 33
gen missing_sh_1900 =  100-nummissionmap1900/numissiontrue1900*100
sum missing_sh_1900, d
replace missing_sh_1900 = 0 if missing_sh_1900 != . & missing_sh_1900 < 0
sum missing_sh_1900, d
* Missing share 1924 - N = 34
gen missing_sh_1924 =  100-nummissionmap1924/numissiontrue1924*100

***BAR CHART FIGURE 1B (NOte: manually adjust Tick label properties GHA: black medium-large)***
gsort- missing_sh_1924
graph bar (mean) missing_sh_1900 (mean) missing_sh_1924, over(ccode, sort(missing_sh_1924) label(angle(90) labcolor(gray)) descending) bar(1, color(gs12)) bar(2, color(black)) ytitle(Share of Official Missions Missing in Atlases (%)) legend(order(1 "Beach in 1900 (Protestants)" 2 "Roome in 1924 (Protestants & Catholics)") rows(1)) legend(size(small)) graphregion(fcolor(white) ifcolor(white))
graph export "Figure1B.pdf", replace
